home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Craps < prev    next >
Encoding:
Text File  |  1985-06-20  |  1002 b   |  36 lines  |  [TEXT/TRUE]
  1. ! Craps game.
  2. !
  3. RANDOMIZE
  4.  
  5. FOR game = 1 to 10                     ! Play 10 games
  6.  
  7.   LET die1 = Int(6*Rnd + 1)            ! Roll 1 die
  8.   LET die2 = Int(6*Rnd + 1)            ! And the other
  9.   LET dice = die1 + die2               ! Sum of two dice
  10.  
  11.   PRINT dice;                          ! Print this roll
  12.  
  13.   SELECT CASE dice                     ! Branch on roll
  14.  
  15.     CASE 2, 3, 12                      ! dice = 2, 3, or 12
  16.          PRINT "You lose."
  17.  
  18.     CASE 7, 11                         ! dice = 7 or 11
  19.          PRINT "You win."
  20.  
  21.     CASE ELSE                          ! Anything else
  22.          LET POINT = dice              ! Remember that roll
  23.          DO
  24.            LET die1 = Int(6*Rnd + 1)   ! Roll again
  25.            LET die2 = Int(6*Rnd + 1)   ! Both dice
  26.            LET dice = die1 + die2    
  27.            PRINT dice;                 ! Print this roll
  28.          LOOP until dice = 7 or dice = point
  29.  
  30.          IF dice=point then PRINT "You win" else PRINT "You lose"
  31.     END SELECT
  32.  
  33. NEXT game
  34.  
  35. END
  36.